@VBA字符串操作：从右向左截取特定分隔符后的内容

熟悉EXCEL函数的朋友遇到截取字符串的时候第一个想到的肯定是FIND()、 LEN() 、LEFT()、**RIGHT()**这一套操作, 但很遗憾VBA里面的FIND针对的是Range对象，用到字符串类型的变量上只能会不停报错。此时需要请出的大神是VBA/Access里面的函数：

对于大量诸如“上海市浦东新区金桥街道某某路某某号”这样的结构化文本而言，可以把重复出现的“市、区、街道、路、号”看做“分隔符”，进而把内容分隔成我们需要的小板块。

具体来说，InStr从左往右找，InStrRev从右向左，不涉及大小写区分的话直接填——（字符串，“分隔符”）即可，函数返回一个整数来表示分隔符在字符串中的下标。留意下，如果分隔符是“//”，“自治区”之类的多个字符组成，那么返回的下标永远是分隔符左起第一个字符在整个字符串里面的位置。

举例说明：

待切片字符串： 北 京 > 海 淀 > 学 院 路 > 北 京 语 言 大 学 对 应 的 下 标： 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 要 求： 把最后一个“>”右边的内容解出来

步骤：

下面上我的工作实例，要求写宏代码把原表O列中的样式改成仅存在最后一层机构名的形式：

图1：原表0列的样子

“图2：清理后的样子”

代码是一个子过程，工作表对象w是由主过程传进来的。各个步骤的注释写的很详细，仅供和我一样的小白参考。重点在Do While Loop和里面的IF Else判断里。

代码敲完，在VBE的立即窗口里欣赏下过程就好：